home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
PROGSCAL
/
TBUTIL2.LZH
/
DEFDEMO.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1986-02-23
|
948b
|
37 lines
{$I Var.Inc}
{$I Windmngr.Inc}
{$I DemoDefs.Inc}
{$I Growwin.Inc}
var ch:char;
i:integer;
begin
Initialize;
i:=0;
Select_window(1);
Select_Window(2);
Select_Window(3);
repeat
Select_Window(1);
Write('Window number 1 ');
Select_window(2);
write('Window number 2 ');
Select_window(3);
write('Window number 3 ');
i:=i+1;
if i=40 then
begin
Grow_window(22,7,58,22,14,0,2);
textcolor(2);
for i:=1 to 100 do
begin
write(' Growing Window ');
delay(10)
end;
delay(1000);
remove(1);
i:=0
end
Until keypressed
end.